10 DIMF$(16):REM COPYRIGHT 1988 COMPUTE! PUBLICATIONS, INC. ALL RIGHTS RESERVED
20 PRINT"[147][144]   COPYRIGHT 1988 COMPUTE! PUB., INC."
30 PRINTTAB(11)"ALL RIGHTS RESERVED":GOSUB390
40 F$(1)="LOAD"+CHR$(34)
50 F$(2)="SAVE"+CHR$(34)
60 F$(3)="PRINT"+CHR$(34)
70 F$(4)="P[207]53281,0:P[207]53280,0:"+CHR$(152)+"LIST"+CHR$(13)
80 F$(5)="GOTO"
90 F$(6)="GOSUB"
100 F$(7)="FORI=1TO500:NEXT"
110 F$(8)="LOAD"+CHR$(34)+"$"+CHR$(34)+",8"
120 F$(9)="OPEN4,4:CMD4:LIST"
130 F$(10)="OPEN15,8,15,"+CHR$(34)+"V0"+CHR$(34)+":CLOSE15"
140 F$(11)="OPEN15,8,15,"+CHR$(34)+"I0"+CHR$(34)+":CLOSE15"
150 F$(12)="LIST0-150"+CHR$(13)
160 F$(13)="LIST151-300"+CHR$(13)
170 F$(14)="LIST300-450"+CHR$(13)
180 F$(15)="LIST451-600"+CHR$(13)
190 F$(16)="RUN"+CHR$(13)
200 FORP=1TO16:L=LEN(F$(P)):FORI=1TOL
210 POKE51350+C,ASC(MID$(F$(P),I,1)):C=C+1:NEXT:POKE51350+C,0:C=C+1:NEXT
220 PRINT"[147]ALL KEYS ARE DEFINED."
230 INPUT"DO YOU WISH TO SAVE THIS VERSION  Y[157][157][157]";Q$:IFQ$="Y"THEN260
240 IFQ$<>"N"THEN230
250 PRINT"[147]":END
260 INPUT"FILENAME";N$:L=LEN(N$):IFL<1ORL>16THEN260
270 PRINT"PLEASE WAIT..."
280 OPEN15,8,15,"I0":CLOSE15:IFST<>0THEN370
290 OPEN1,8,15:OPEN2,8,2,"0:"^N$+",P,W":IFST<>0THEN340
300 PRINT#2,CHR$(0)CHR$(200);
310 FORK=51200TO51350+C:PRINT#2,CHR$(PEEK(K));:NEXT
320 IFST<>0THEN340
330 PRINT"SAVE COMPLETED.":GOTO350
340 PRINT"ERROR:  [153]";
350 GET#1,E$:PRINTE$;:IFE$<>CHR$(13)THEN350
360 CLOSE1:CLOSE2:PRINT"[147]":SYS51200:END
370 PRINT"DISK ERROR:  [153]"
380 PRINT"INSERT DISK AND PRESS A KEY.":WAIT198,15:GETA$:GOTO280
390 FORI=51200TO51349:READA:X=X+A:POKEI,A:NEXT
400 IFX<>19573THENPRINT"ERROR IN ML DATA STATEMENTS.":STOP
410 RETURN
420 DATA 169,124,160,200,32,30,171,120,169,20
430 DATA 141,20,3,169,200,141,21,3,88,96
440 DATA 165,197,201,64,208,5,133,253,76,49
450 DATA 234,197,253,240,249,133,253,201,3,144
460 DATA 243,201,7,176,239,41,3,133,254,173
470 DATA 141,2,208,5,165,254,76,65,200,170
480 DATA 189,142,200,5,254,162,150,160,200,134
490 DATA 251,132,252,160,0,170,240,17,177,251
500 DATA 208,3,202,240,9,230,251,208,245,230
510 DATA 252,76,78,200,200,177,251,240,185,201
520 DATA 13,240,11,32,210,255,200,208,242,230
530 DATA 252,76,95,200,141,119,2,162,1,134
540 DATA 198,76,28,200,83,85,80,69,82,75
550 DATA 69,89,32,69,78,65,66,76,69,68
560 DATA 46,0,0,4,8,0,12,0,0,0